C     COPYRIGHT       NONE.  THIS CODE IS IN THE PUBLIC DOMAIN.
C     FILENAME        GEMINICATCHUPANDRENDEZVOUSPROGRAM/ALIGNP.F
C     PURPOSE         THIS IS PART OF THE ORIGINAL 1965 SIMULATION
C                     PROGRAM FOR THE GEMINI 7/6 MISSION
C                     CATCH-UP AND RENDEZVOUS FLIGHT PHASES.
C                     THIS PARTICULAR FILE CONTAINS ONLY THE
C                     ALIGNP SUBROUTINE.
C     WEBSITE         WWW.IBIBLIO.ORG/APOLLO
C     HISTORY         2010-08-14 RSB  BEGAN TRANSCRIBING FROM
C                                     THE SCANNED PDF REPORT.
C
C     REFER TO MAIN.F FOR MORE-DETAILED INTRODUCTORY COMMENTS.
C
C     FROM PAGE 137 OF THE REPORT 
      SUBROUTINE ALIGNP(CFX,CFY,CFZ,FXP,FYP,FZP,AKX1,AKX2,AKX3,AKX4,AKY1
     1,AKY2,AKY3,AKY4,AKZ1,AKZ2,AKZ3,AKZ4,DTSC)
      FXP= FXP -DTSC*AKX4
      FYP= FYP -DTSC*AKY4
      FZP= FZP -DTSC*AKZ4
      CFX = AKX1*FXP + AKX2*FYP + AKX3* FZP
      CFY = AKY1*FXP + AKY2*FYP + AKY3*FZP
      CFZ = AKZ1*FXP + AKZ2*FYP + AKZ3*FZP
      FXP=0.
      FYP=0.
      FZP=0.
      RETURN
      END(1,1,0,0,0,0,1,1,0,0,0,0,0,0,0)
